program Project1;

{$R 'res\resources.res' 'res\resources.rc'}
{$R 'revision.res' 'revision.rc'}

uses
  Forms,
  WinProcs,
  Messages,
  SysUtils,
  Bass,
  Unit1 in 'Unit1.pas' {Form1},
  Unit4 in 'Unit4.pas' {Form4},
  options in 'options.pas' {Settings},
  pldb in 'pldb.pas',
  plman in 'plman.pas' {plmanf},
  Frame_Settings_General in 'Frame_Settings_General.pas' {Frame_Set_General: TFrame},
  Frame_Settings_Echo in 'Frame_Settings_Echo.pas' {Frame_Set_Echo: TFrame},
  Frame_Set_DataBase in 'Frame_Set_DataBase.pas' {Frame_Set_DB: TFrame},
  dll in 'dll.pas',
  functions in 'functions.pas',
  InfoF in 'InfoF.pas' {Info},
  header in 'header.pas',
  Settings_Colors in 'Settings_Colors.pas' {Set_Colors: TFrame},
  About in 'About.pas' {AboutBox};

{$R *.res}

begin
{$WARN SYMBOL_PLATFORM OFF}
  if DebugHook <> 0 then
{$WARN SYMBOL_PLATFORM ON}
    ReportMemoryLeaksOnShutdown := True
  else
    CreateMutex(nil, False, 'SimplyPlay');

  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.Title := 'SimplyPlay';
    Application.HintPause := 0;
    Application.HintHidePause := 30000;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else
  begin
//    if ParamCount > 0 then
      MessageBox(0, 'SimplyPlay already running.', '', MB_ICONINFORMATION or MB_OK or MB_TOPMOST)
//    else
//      SendMessage(HWND_BROADCAST, )
  end;
end.
